home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo87.d64 / visible 64.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  66 lines
  1. 10 PRINT"[147]JUST A SEC!":GOSUB900:GOSUB800
  2. 20 FORJ=0TO7:X=200:U=J:IFJ>3THENX=280:U=J-4
  3. 30 SYSDS:J,J,1,1,X,U*42+60,0, 5:NEXT
  4. 40 PRINT"[155]50 X=X+1":PRINT:PRINT"60 IF X<20000":PRINT"  THEN 50":X=0
  5. 50 X=X+1
  6. 55 GETA$:IFA$<>""THEN65
  7. 60 IFX <2000 THEN 50
  8. 65 GOSUB800:PRINT"[155] NESTED ":PRINT:PRINT" GOSUBS"
  9. 100 S=0:K=20:G=0
  10. 105 S=S+1:IFS<KTHENGOSUB105:G=G+1
  11. 110 IFG<19THENRETURN
  12. 120 GETA$:IFA$=""THEN100
  13. 130 GOSUB800:PRINT"[155] NESTED ":PRINT:PRINT" FOR/NEXTS"
  14. 140 FORJ=1TO5 :FORK=1TO5:FORQ=1TO5:FORH=1TO5:NEXT:NEXT:NEXT:NEXT
  15. 150 GETA$:IFA$=""THEN140
  16. 160 GOSUB800:PRINT"[155] CALCULATE":PRINT" 123/2.678+13":PRINT"*7^3-SIN(.33)"
  17. 165 S=123/2.678*7^3-SIN(.33)
  18. 170 GETA$:IFA$=""THEN165
  19. 799 GOSUB800:END
  20. 800 KD$=""
  21. 805 PRINTCHR$(14);"[147][129]         ";TAB(22);"[159][146]PAGE 0";TAB(32);"PAGE 1"
  22. 810 PRINT"[129] [158]VISABLE[129] [146]";TAB(13);"[159]CHIP I/O"
  23. 820 PRINT"[129] [158]   64  [129] [146]"
  24. 825 PRINT"[129]         "
  25. 830 PRINT" OPERATION    "
  26. 835 FORJ=1TO8:PRINT"[155]              ":NEXT
  27. 840 PRINT"              "
  28. 850 PRINT:PRINT:PRINT"[159] HIT A KEY ":PRINT" FOR NEXT  ":PRINT" FUNCTION  "
  29. 855 PRINTLEFT$(KD$,10);TAB(17);"FACC"
  30. 860 PRINTLEFT$(KD$,12);TAB(15);"CHRGET"
  31. 865 PRINTLEFT$(KD$,15);TAB(16);"JIFFY"
  32. 870 PRINTLEFT$(KD$,19);TAB(17);"CRSR"
  33. 872 PRINTLEFT$(KD$,24);TAB(32);"6502";
  34. 875 PRINTLEFT$(KD$,25);TAB(32);"STACK";
  35. 880 PRINTLEFT$(KD$,10);
  36. 899 RETURN
  37. 900 Y=12*4096:DS=49162:MV=49246:V=53248:POKEV+33,0
  38. 910 READX:IFX<0THENRETURN
  39. 920 POKEY,X:Y=Y+1:GOTO910
  40. 1000 DATA 32,115,0,32,158,173,32,247,183,96,32,139,192,32,0
  41. 1010 DATA 192,165,20,166,2,157,248,7,32,0,192,165,20,162,29
  42. 1020 DATA 32,162,192,32,0,192,165,20,162,23,32,162,192,32,97
  43. 1030 DATA 192,32,0,192,165,20,72,162,28,32,162,192,32,0,192
  44. 1040 DATA 165,20,166,2,157,39,208,104,240,16,32,0,192,165,20
  45. 1050 DATA 141,37,208,32,0,192,165,20,141,38,216,169,1,162,21
  46. 1060 DATA 32,162,192,96,32,139,192,32,0,192,165,21,72,165,20
  47. 1070 DATA 72,32,0,192,165,2,10,170,232,165,20,157,0,208,202
  48. 1080 DATA 104,157,0,208,104,162,16,32,162,192,169,0,141,30,208
  49. 1090 DATA 141,31,208,96,32,0,192,165,20,41,7,133,2,170,169
  50. 1100 DATA 1,224,0,240,4,10,202,208,252,133,78,96,164,78,201
  51. 1110 DATA 0,240,6,152,29,0,208,208,6,152,73,255,61,0,208
  52. 1120 DATA 157,0,208,96,0,0,7,14,234,234,234,234,32,0,192
  53. 1130 DATA 165,20,41,3,170,189,184,192,133,78,169,212,133,79,32
  54. 1140 DATA 0,192,165,20,160,5,145,78,32,0,192,165,20,160,6
  55. 1150 DATA 145,78,32,112,193,165,20,133,2,160,4,145,78,32,0
  56. 1160 DATA 192,165,20,160,1,145,78,32,0,192,165,20,160,0,145
  57. 1170 DATA 78,165,2,201,65,208,20,32,0,192,165,20,41,15,160
  58. 1180 DATA 3,145,78,32,0,192,165,20,160,2,145,78,169,15,141
  59. 1190 DATA 24,212,96,32,0,192,165,20,41,3,170,189,184,192,133
  60. 1200 DATA 78,169,212,133,79,165,21,133,2,169,0,160,4,145,78
  61. 1210 DATA 32,0,192,165,20,160,1,145,78,32,0,192,165,20,160
  62. 1220 DATA 0,145,78,165,2,201,65,208,20,32,0,192,165,20,41
  63. 1230 DATA 15,160,3,145,78,32,0,192,165,20,160,2,145,78,165
  64. 1240 DATA 2,160,4,145,78,96,0,0,169,0,160,4,145,78,76
  65. 1250 DATA 0,192,-1
  66.